home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / vsview17 / ffx.frm < prev    next >
Text File  |  1994-11-04  |  11KB  |  345 lines
  1. VERSION 2.00
  2. Begin Form fFX 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Special FX"
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   300
  7.    ClientTop       =   2175
  8.    ClientWidth     =   8820
  9.    Height          =   4665
  10.    Left            =   195
  11.    LinkTopic       =   "Form3"
  12.    ScaleHeight     =   4170
  13.    ScaleWidth      =   8820
  14.    Top             =   1785
  15.    Width           =   9030
  16.    Begin vsInForm vsInForm1 
  17.       BarColor        =   &H00C0C0C0&
  18.       BarColorInactive=   &H00C0C0C0&
  19.       BarHeight       =   30
  20.       BarStyle        =   3  'Raised
  21.       ButtonsLeft     =   0  '0
  22.       ButtonsRight    =   1  '1
  23.       CapAlign        =   1  'Left Center
  24.       CapColor        =   &H00C0C0C0&
  25.       CapColorInactive=   &H00C0C0C0&
  26.       CapStyle        =   1  'Raised
  27.       Caption         =   "   vsInForm: Custom Borders on Forms and Controls"
  28.       ConvInfo        =   FFX.FRX:0000
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "Arial"
  32.       FontSize        =   12
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       FrameColor      =   &H00C0C0C0&
  36.       FrameColorInactive=   &H00C0C0C0&
  37.       FrameCorners    =   0   'False
  38.       FrameSizing     =   0  'None
  39.       FrameStyle      =   3  'Raised Form
  40.       Left            =   3300
  41.       PictRight0      =   FFX.FRX:000B
  42.       Top             =   2085
  43.    End
  44.    Begin Frame Frame2 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Frame"
  47.       Height          =   1695
  48.       Left            =   105
  49.       TabIndex        =   8
  50.       Top             =   210
  51.       Width           =   3075
  52.       Begin CheckBox Check1 
  53.          Alignment       =   1  'Right Justify
  54.          BackColor       =   &H00C0C0C0&
  55.          Caption         =   "Corners"
  56.          FontBold        =   0   'False
  57.          FontItalic      =   0   'False
  58.          FontName        =   "MS Sans Serif"
  59.          FontSize        =   8.25
  60.          FontStrikethru  =   0   'False
  61.          FontUnderline   =   0   'False
  62.          Height          =   225
  63.          Left            =   315
  64.          TabIndex        =   15
  65.          Top             =   1365
  66.          Width           =   1170
  67.       End
  68.       Begin ComboBox Combo6 
  69.          Height          =   300
  70.          Left            =   1020
  71.          Style           =   2  'Dropdown List
  72.          TabIndex        =   11
  73.          Tag             =   "Left"
  74.          Top             =   300
  75.          Width           =   1815
  76.       End
  77.       Begin ComboBox Combo5 
  78.          Height          =   300
  79.          Left            =   1020
  80.          Style           =   2  'Dropdown List
  81.          TabIndex        =   10
  82.          Tag             =   "Left"
  83.          Top             =   600
  84.          Width           =   1815
  85.       End
  86.       Begin ComboBox Combo4 
  87.          Height          =   300
  88.          Left            =   1020
  89.          Style           =   2  'Dropdown List
  90.          TabIndex        =   9
  91.          Tag             =   "Left"
  92.          Top             =   900
  93.          Width           =   1815
  94.       End
  95.       Begin Label Label6 
  96.          BackStyle       =   0  'Transparent
  97.          Caption         =   "Style"
  98.          FontBold        =   0   'False
  99.          FontItalic      =   0   'False
  100.          FontName        =   "MS Sans Serif"
  101.          FontSize        =   8.25
  102.          FontStrikethru  =   0   'False
  103.          FontUnderline   =   0   'False
  104.          Height          =   255
  105.          Left            =   180
  106.          TabIndex        =   14
  107.          Top             =   360
  108.          Width           =   555
  109.       End
  110.       Begin Label Label5 
  111.          BackStyle       =   0  'Transparent
  112.          Caption         =   "Resizing"
  113.          FontBold        =   0   'False
  114.          FontItalic      =   0   'False
  115.          FontName        =   "MS Sans Serif"
  116.          FontSize        =   8.25
  117.          FontStrikethru  =   0   'False
  118.          FontUnderline   =   0   'False
  119.          Height          =   255
  120.          Left            =   180
  121.          TabIndex        =   13
  122.          Top             =   660
  123.          Width           =   735
  124.       End
  125.       Begin Label Label4 
  126.          BackStyle       =   0  'Transparent
  127.          Caption         =   "Width"
  128.          FontBold        =   0   'False
  129.          FontItalic      =   0   'False
  130.          FontName        =   "MS Sans Serif"
  131.          FontSize        =   8.25
  132.          FontStrikethru  =   0   'False
  133.          FontUnderline   =   0   'False
  134.          Height          =   255
  135.          Left            =   180
  136.          TabIndex        =   12
  137.          Top             =   960
  138.          Width           =   555
  139.       End
  140.    End
  141.    Begin Frame Frame1 
  142.       BackColor       =   &H00C0C0C0&
  143.       Caption         =   "Caption"
  144.       Height          =   1380
  145.       Left            =   105
  146.       TabIndex        =   1
  147.       Top             =   1995
  148.       Width           =   3075
  149.       Begin ComboBox Combo3 
  150.          Height          =   300
  151.          Left            =   1020
  152.          Style           =   2  'Dropdown List
  153.          TabIndex        =   6
  154.          Tag             =   "Left"
  155.          Top             =   900
  156.          Width           =   1815
  157.       End
  158.       Begin ComboBox Combo2 
  159.          Height          =   300
  160.          Left            =   1020
  161.          Style           =   2  'Dropdown List
  162.          TabIndex        =   4
  163.          Tag             =   "Left"
  164.          Top             =   600
  165.          Width           =   1815
  166.       End
  167.       Begin ComboBox Combo1 
  168.          Height          =   300
  169.          Left            =   1020
  170.          Style           =   2  'Dropdown List
  171.          TabIndex        =   2
  172.          Tag             =   "Left"
  173.          Top             =   300
  174.          Width           =   1815
  175.       End
  176.       Begin Label Label3 
  177.          BackStyle       =   0  'Transparent
  178.          Caption         =   "Height"
  179.          FontBold        =   0   'False
  180.          FontItalic      =   0   'False
  181.          FontName        =   "MS Sans Serif"
  182.          FontSize        =   8.25
  183.          FontStrikethru  =   0   'False
  184.          FontUnderline   =   0   'False
  185.          Height          =   255
  186.          Left            =   180
  187.          TabIndex        =   7
  188.          Top             =   960
  189.          Width           =   555
  190.       End
  191.       Begin Label Label2 
  192.          BackStyle       =   0  'Transparent
  193.          Caption         =   "Align"
  194.          FontBold        =   0   'False
  195.          FontItalic      =   0   'False
  196.          FontName        =   "MS Sans Serif"
  197.          FontSize        =   8.25
  198.          FontStrikethru  =   0   'False
  199.          FontUnderline   =   0   'False
  200.          Height          =   255
  201.          Left            =   180
  202.          TabIndex        =   5
  203.          Top             =   660
  204.          Width           =   555
  205.       End
  206.       Begin Label Label1 
  207.          BackStyle       =   0  'Transparent
  208.          Caption         =   "Style"
  209.          FontBold        =   0   'False
  210.          FontItalic      =   0   'False
  211.          FontName        =   "MS Sans Serif"
  212.          FontSize        =   8.25
  213.          FontStrikethru  =   0   'False
  214.          FontUnderline   =   0   'False
  215.          Height          =   255
  216.          Left            =   180
  217.          TabIndex        =   3
  218.          Top             =   360
  219.          Width           =   555
  220.       End
  221.    End
  222.    Begin PictureBox Picture1 
  223.       Height          =   3705
  224.       Left            =   3780
  225.       Picture         =   FFX.FRX:00DD
  226.       ScaleHeight     =   3300
  227.       ScaleWidth      =   4215
  228.       TabIndex        =   0
  229.       Top             =   210
  230.       Width           =   4425
  231.       Begin vsInForm VSi 
  232.          BarColor        =   &H00C0C0C0&
  233.          BarColorInactive=   &H00C0C0C0&
  234.          BarHeight       =   13
  235.          ButtonsLeft     =   3  '3
  236.          ButtonsRight    =   3  '3
  237.          Caption         =   "Floating Picture Box"
  238.          ConvInfo        =   FFX.FRX:3E93
  239.          CustomFrame     =   -1  'True
  240.          FontBold        =   0   'False
  241.          FontItalic      =   0   'False
  242.          FontName        =   "Small Fonts"
  243.          FontSize        =   6.75
  244.          FontStrikethru  =   0   'False
  245.          FontUnderline   =   0   'False
  246.          FrameColor      =   &H00C0C0C0&
  247.          FrameColorInactive=   &H00C0C0C0&
  248.          FrameCorners    =   0   'False
  249.          Left            =   210
  250.          PictLeft0       =   FFX.FRX:3E9E
  251.          PictLeft1       =   FFX.FRX:3F68
  252.          PictLeft2       =   FFX.FRX:4032
  253.          PictRight0      =   FFX.FRX:40FC
  254.          PictRight1      =   FFX.FRX:41C6
  255.          PictRight2      =   FFX.FRX:4290
  256.          Top             =   1020
  257.       End
  258.    End
  259. End
  260. Option Explicit
  261.  
  262. Sub Check1_Click ()
  263.   VSi.FrameCorners = Not VSi.FrameCorners
  264. End Sub
  265.  
  266. Sub Combo1_Click ()
  267.   VSi.BarStyle = Val(Combo1)
  268. End Sub
  269.  
  270. Sub Combo2_Click ()
  271.   VSi.CapAlign = Val(Combo2)
  272. End Sub
  273.  
  274. Sub Combo3_Click ()
  275.   VSi.BarHeight = Val(Combo3)
  276. End Sub
  277.  
  278. Sub Combo4_Click ()
  279.   VSi.FrameWidth = Val(Combo4)
  280. End Sub
  281.  
  282. Sub Combo5_Click ()
  283.   VSi.FrameSizing = Val(Combo5)
  284. End Sub
  285.  
  286. Sub Combo6_Click ()
  287.   VSi.FrameStyle = Val(Combo6)
  288. End Sub
  289.  
  290. Sub Form_Load ()
  291.   
  292.   VSinform1.CustomFrame = True
  293.  
  294.   ' cap style
  295.   Combo1.AddItem "0 - None"
  296.   Combo1.AddItem "1 - Flat"
  297.   Combo1.AddItem "2 - No Border"
  298.   Combo1.AddItem "3 - Raised"
  299.   Combo1.AddItem "4 - Inset"
  300.   Combo1.ListIndex = 3
  301.  
  302.   ' cap align
  303.   Combo2.AddItem "1 - Left Center"
  304.   Combo2.AddItem "4 - Center Center"
  305.   Combo2.AddItem "7 - Right Center"
  306.   Combo2.ListIndex = 1
  307.  
  308.   ' cap height
  309.   Combo3.AddItem "0 - Default"
  310.   Combo3.AddItem "12"
  311.   Combo3.AddItem "15"
  312.   Combo3.AddItem "25"
  313.   Combo3.ListIndex = 3
  314.  
  315.   ' frame style
  316.   Combo6.AddItem "0 - None"
  317.   Combo6.AddItem "1 - Classic"
  318.   Combo6.AddItem "2 - Outside"
  319.   Combo6.AddItem "3 - Raised Form"
  320.   Combo6.AddItem "4 - Raised Frame"
  321.   Combo6.ListIndex = 3
  322.  
  323.   ' resizing
  324.   Combo5.AddItem "0 - None"
  325.   Combo5.AddItem "1 - Horizontal"
  326.   Combo5.AddItem "2 - Vertical"
  327.   Combo5.AddItem "3 - Both"
  328.   Combo5.AddItem "4 - Locked"
  329.   Combo5.ListIndex = 3
  330.  
  331.   ' frame width
  332.   Combo4.AddItem "0 - Default"
  333.   Combo4.AddItem "3"
  334.   Combo4.AddItem "5"
  335.   Combo4.AddItem "8"
  336.   Combo4.AddItem "12"
  337.   Combo4.ListIndex = 3
  338.  
  339. End Sub
  340.  
  341. Sub VSInForm1_ClickRButton (Button As Integer)
  342.   Unload Me
  343. End Sub
  344.  
  345.